Public Class ControlesAyuda

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Try
         Dim stream As New IO.MemoryStream(NsTextBoxOpenFile1.ACFileData)
         Dim image As New Bitmap(stream)
         PictureBox1.Image = image
         txtPathCompleto.Text = NsTextBoxOpenFile1.ACFullPath
         txtSinExtension.Text = NsTextBoxOpenFile1.ACNameFileWithoutExtension
         txtFile.Text = NsTextBoxOpenFile1.ACFileName
         txtPath.Text = NsTextBoxOpenFile1.ACPathName
      Catch ex As Exception

      End Try
   End Sub

   Private Sub ControlesAyuda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      NsTextBoxOpenFile1.ACDefaultFile = txtDefault.Text
      NsTextBoxOpenFile1.ACFilter = txtFilter.Text
   End Sub

   Private Sub NsTextBoxOpenFile1_NSAyudaClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NsTextBoxOpenFile1.ACAyudaClick
      Button1_Click(Nothing, Nothing)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      NsTextBoxOpenFile1.ACDefaultFile = txtDefault.Text
      NsTextBoxOpenFile1.ACFilter = txtFilter.Text
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

   End Sub
End Class